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Nowadays, an RS232 interface is a 
standard feature of any better than 
average multimeter. However, the 
accompanying software can usually 
only display a series of measure- 
ments on the PC monitor or save the 
data as a text file. If you want to fur- 
ther process and evaluate the mea- 
surements, this tabular text file must 
be laboriously transformed using a 
statistical program or imported into 
a word processor. 

However, Microsoft delivers the 
Visual BASIC for Applications inter- 
preter as part of the Office package. 
This interpreter makes it possible to 
have direct communication between 
Word or Excel and the measuring 
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equipment. We can illustrate this 
with an example. 

The document template shown in 
Figure 1 contains a small sample 
program that reads data into Word 
from a digital multimeter connected 
to the COM1 serial interface. A tem- 
perature-dependent resistor sensor 
(type KTY10-6) is connected to the 
multimeter. The resistance value can 
be converted into a temperature 
using a formula provided by the 
manufacturer of the temperature 
sensor. The temperature can then be 
displayed in a VBA form. If you click 
on the Measure button, the current 
temperature will be displayed 
(assuming that the RSMINI.DLL file 


Excel 








Microsoft Office 97 includes 
a complete programming 
language called Visual BASIC 
for Applications (VBA). With 
this interpreter, which is 
largely compatible with 
Visual BASIC, it is possible to 
perform measurements 
directly in Word or Excel. 
The full power of the Office 
applications is then available 
for analysing the measured 
Since VBA 


address external routines in 


values. can 


dynamic link libraries, it 


possible to directly import 
measurement values. 
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Figure |. A Word document template can serve 
as a measurement program. 


is present in the Windows directory). The 
document template (KTY.DOT) and 
RSMINI.DLL can be freely copied and can be 
downloaded from the Elektor Electronics 
homepage (www.elektor-electronics.co.uk). If 
you do not have Internet access, you may 
order diskette # 000053-11 from our Readers 
Services. 


Sensors and measurement 
equipment 


The semiconductor temperature sensor 
KTY10-6 is a temperature-sensitive resistor. 
Unfortunately, it has slightly parabolic non- 
linear characteristic (see Figure 2). This char- 
acteristic curve can be described using the 
formula 
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Figure 2. Characteristic curve of the KTY 10-6 
sensor. 
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Rr = R25 (1+a:ATa +6: AT 2) = 
(Ta) 


where 


a = 7.88103 K1 
B = 1.937:105 K2 


This formula can be inverted to cal- 
culate the temperature, as follows: 


T = 25 + V(a2 -4:6 + 4:B-kp) -a / 
2-6 


where kr = Rr/Ros5 


For our example, we measure the 
resistance of the KTY10-6 using a 
Metax M-3650CR digital multimeter 
with an RS232 connector. This is a 
widely used type of meter, but any 
compatible type of DVM could be 
used. The resistance value is 
imported into Word or Excel and con- 
verted directly into a temperature. 

The DVM is connected to a free 
COM port of the PC using a special 
cable. Optocouplers in the meter 
provide electrical isolation between 
the meter and the PC. They draw 
their power from the RS232 lines, 
which means that the RTS and DTR 
lines must be set appropriately after 
the interface is opened. 

The multimeter sends the mea- 
sured value as a 14-byte ASCII char- 
acter string, using transfer parame- 
ters of 1200 baud, no parity, 7 data 
bits and two stop bits. The last char- 
acter transferred is a CR character 
(byte value 13). A ‘D’ must be sent 
from the PC to the multimeter to ini- 
tiate a transfer, but in practice 
almost any character will do the job. 


Dynamic link library 


The multimeter that is connected to 
the COM interface of the PC is 
directly addressed and read from 
Excel via a small dynamic link library 
(DLL). A few lines of program code 
filter the received resistance value, 
and a suitable equation is used to 
convert the non-linear resistance 
function of the sensor into a dis- 
played temperature value. 

The DLL that has been specially 
developed for this project 
(RSMINI.DLL) supports basic access 
to the multimeter. It can be down- 


loaded along with the sample pro- 
grams used in this article from the 
Elektor home page. 

This small DLL provides all the 
essential functions for communica- 
tion via the RS2332 interface under 
Windows 95/98. The following DLL 
calls are needed to read out the dis- 
played value from the multimeter: 


OPENCOM open the serial 
interface 
CLOSECOM close the 
interface 
SENDBYTE send a character 
from the PC 
READBYTE receive a char- 
acter in the PC 
RTS Switch the 
RTS line 
DTR Switch the 
DTR line 
DELAY delay in 
milliseconds 


A new module 


After starting Word 97 or Excel 97, 
you can open the VBA editor by 
pressing Alt+F11. Here you can 
insert a new module using the 
Insert/Module menu. The first thing 
in the DLL is a declaration of the 
external functions of the DLL. In this 
regard, it is important to use upper- 
case letters for the names of all DLL 
functions. 


Declare Function OPENCOM 
Lib “rsmini” (ByVal AS) 
As Integer 

Declare Sub CLOSECOM Lib 
“rsmini” () 

Declare Sub SENDBYTE Lib 
“rsmini” (ByVal b3%) 

Declare Sub RTS Lib 
“rsmini” (ByVal b3%) 

Declare Sub DTR Lib 
“rsmini” (ByVal onoff3) 

Declare Function READBYTE 
Lib “rsmini” () As Inte- 
ger 

Declare Sub DELAY Lib 
“rsmini” (ByVal ms) 


All parameters must be transferred 
by values (ByVal), rather than as ref- 
erence parameters (presets). The 
DLL should be located in the Win- 
dows or System directory. Other pos- 
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sible locations for the DLL are the 
directory for spreadsheets or the 
templates directory. 

The declarations are followed by the 
individual routines for reading the 
multimeter: 


Function ComOpen() As Inte- 
ger 

ComOpen = 
OPENCOM(“COM1:1200,N,7,2"”): 
RTS 0: DTR 1 
End Function 


Function GetString() As 
String 
Dim AS 
SENDBYTE 33 
AS = “" 
Do 
e = READBYTE 
If e > 13 Then AS = AS 
+ ChrS$(e) 
Loop Until e < 0 
GetString = AS 
End Function 


Opening the interface 

ComOpen expects a character string 
containing the interface parameters. 
These open COM1 with 1200 baud, 7 
data bits, no parity and 2 stop bits. 
If the interface cannot be opened, 
ComOpen returns a null value. 


Read in a character string 

The request for a measurement value 
is initiated by the character ‘D’. After 
this, characters are received and 
packed into the character string A$ 
until READBYTE provides the value 
—1, which indicates that the waiting 
time has expired. All 14 bytes should 
have been received within this inter- 
val. 

These two functions can be tested 
using a small test routine: 


Sub Test 
If ComOpen>0 then MsgBox 
(GetString) 

End Sub 


Parse a character string 

The resistance of the sensor is ini- 
tially contained in a character string, 
such as: 

a 01.98 kOhm” 

This is now converted into a double- 
precision floating-point variable. Five 
characters are extracted from the 
character string, starting from the 
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fourth position (“01.98”). Before the 
extraction takes place, the validity of 
the string is tested by checking the 
value of the decimal point character 
at position 6. Finally, the result is 
converted to ohms and the result is 
assigned to the function name: 


Function StringToOhm(ByVal 
AS) As Double 
StringToOhm = 0 
If MidS(AS, 6, 1) <> ~.” 
Then Exit Function 
b$ = Mid$(A$, 4, 5) 
StringToOhm = Val(bS) * 
1000 

End Function 


Calculate the temperature 

The above mentioned formula for 
calculating the temperature from the 
resistance of the sensor is formu- 
lated as a VBA function as follows: 


Function Temp(ByVal r As 
Double) As Double 

Const Alpha = 0.00788, Beta 
= 0.00001937, R25 = 2000 

If r <= 0 Then r = R25 

kt = r / R25 

Temp = 25+(Sqr(Alpha ^ 2 - 
4 * Beta + 4 * Beta * 
kt)-Alpha) / (2 * Beta) 

End Function 


This function receives the resistance 
in ohms and delivers the tempera- 
ture in °C as a result. This formula 
can also be entered into a spread- 
sheet and then used to generate a 
suitable graphic, as shown in the 
illustration at the beginning of this 
article. 


Measurement series in 
Excel and Word 


A small program loop can be used to 
input a series of measurements. The 
subroutine ‘Get10’ takes in ten mea- 
surement values. It use DELAY 1000 
to wait 1000 ms between successive 
measurements. The time is entered 
in column 1 and the temperature in 
column 2. 


Sub Get10() 
Const Interval = 1000 
If ComOpen > 0 Then 
For i = 1 To 10 
Cells(i, 1) =i-1 


Cells(i, 2) = 
Temp (StringToOhm(GetString) ) 
DELAY 1000 
Next 1 
CLOSECOM 
End If 
End Sub 


If you do not have Excel available, you can 
also carry out the measurements using Word. 
The VBA macros will run in the word pro- 
cessing program almost unchanged. The rou- 
tine ‘Get10’ must naturally be modified, since 
there are no cells in Word. In order to insert 
letters and text into the currently open docu- 
ment in Word 97, you can use 


Selection.TypeText Text:="Hello”. 


All declarations and functions are the same 
as those previously presented. The new 
‘Get10’ routine for Word inserts the measure- 
ment data into the current document: 


Sub Get10() 
If ComOpen > 0 Then 
For i= 1 To 10 


Selection.TypeText 
Text:=Str$(i) 
Selection.TypeText 
Text:=vbTab 
Selection.TypeText 
Text:=Strs(Temp(StringToOhm(Get- 
String) )) 
Selection.TypeParagraph 
DELAY 1000 
Next i 
CLOSECOM 
End If 
End Sub 


You can use the control element toolbox to 
assign a command button to the document. 
A double-click on the button opens the VBA 
editor and shows the subroutine that is exe- 
cuted when this button is pressed. If you 
enter ‘Get10’ here, a measurement will be 
made when the button is clicked. 


Private Sub 

CommandButtonl Click() 
Get10 

End Sub 


Naturally, you must exit the design mode 


before you can make a measurement. 
(000053-1) 
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